********************************************************************************************************************
*****Do-file for Setuping data
*****Who is mobilized to vote by short text messages? Evidence from a nationwide field experiment with young voters
********************************************************************************************************************
*****Last edited 24/6/5


*Set seed
set seed 052212145

*edited 27/6/2022




cd "W:\"


*Save admin data variables
use "D:\f13\custom-made\folk_aineistot\u1761_folk_perus.dta", clear
keep if vuosi==2019
drop if shnro==""
save "data\folk2019.dta", replace

*Save treatment variables
use "D:\f13\external\u1761_treatment_missing.dta", clear
drop if shnro==""
save "data\treatment.dta", replace

*Save voting data variables
use "D:\f13\custom-made\vaaliaineistot\u1761_kvaalit_2021.dta"
drop if shnro==""
gen voted21=atyyppi!=""
gen voted21adv=atyyppi!="E" & atyyppi!="" 
drop atyyppi
save "data\election2021.dta", replace



use "D:\f13\custom-made\vaaliaineistot\u1761_ava_2022.dta", clear
drop if shnro==""
gen voted22=atyyppi!=""
gen voted22elday=atyyppi=="E"
gen voted22adv=atyyppi!="E" & atyyppi!="" 
drop atyyppi


*Merge all data
merge 1:1 shnro using "data\treatment.dta"


merge 1:1 shnro using "data\folk2019.dta", gen(_mergefolk)





merge 1:1 shnro using "data\election2021.dta", gen(_el21)

*Generate control and outcome variables
destring kunta, replace
gen treated=treatment
recode treated (2/3=1)
gen treated1=treatment
recode treated1 (2/3=.)
gen treated2=treatment
recode treated2 (1=.) (2=1) (3=.)
gen treated3=treatment
recode treated3 (1=.) (2=.) (3=1)

destring yotutk, gen(highschool)
recode highschool (.=0) (4=1)

destring sose, gen(ses)
gen ses1d=real(substr(sose,1,1)) 
gen female=sukup=="2"
gen lincome=ln(svatva_k)
rename ika age
rename kunta kunta19

gen firstvote=0
replace firstvote=1 if syntyv==2003 & voted21==. & treated!=.
gen foreign=syntyp2
destring foreign, replace
recode foreign (11/12=0) (21/22=1)





*Merge household id for 2014
merge 1:1 shnro using "data\folkperhe2014.dta", gen(_f14)
drop if _f14==2



*Identify mother based on household id in 2014, age difference and number of children in the household
bys petu: egen mmage=max(age) if female==1 & petu!=""

bys petu: egen mage=mean(mmage)

gen diffage=mage-age


*Generate controls using mother's data if available otherwise youth's own data
gen mmses1d=ses1d if age==mage & female==1
bys petu: egen mses1d=mean(mmses1d)
replace mses1d=. if a25lkm==0 | a25lkm==. | diffage<16 | age>25

gen moses1d=mses1d
replace moses1d=ses1d if moses1d==.

gen mmhighschool=highschool if age==mage & female==1
bys petu: egen mhighschool=mean(mmhighschool)
replace mhighschool=. if a25lkm==0 | a25lkm==. | diffage<16 | age>24

gen mohighschool=mhighschool
replace mohighschool=highschool if mohighschool==.
replace mohighschool=ceil(mohighschool)
replace moses1d=ceil(moses1d)

gen mmlincome=lincome if age==mage & female==1
bys petu: egen mlincome=mean(mmlincome)
replace mlincome=. if a25lkm==0 | a25lkm==. | diffage<16 | age>24

gen molincome=mlincome
replace molincome=lincome if molincome==.

*Merge cohabitant id for 2020
merge 1:1 shnro using "data\folkperhe2020.dta", gen(_f20)
drop if _f20==2


*Generate spillover treatment if exactly one pontentilly treated in the household
bys petu20: egen ntreatedf=total(treated) if petu20!=""
bys petu20: egen ncontrolf=total(treatment0) if petu20!=""
gen treatedf=1 if ntreatedf==1 & treated==. & ncontrolf<1
replace treatedf=0 if ncontrolf==1 & treated==. & ntreatedf<1



bys petu: egen ntreatedf14=total(treated) if petu!=""
bys petu: egen ncontrolf14=total(treatment0) if petu!=""
gen treatedf14=1 if ntreatedf14==1 & treated==. & ncontrolf14<1
replace treatedf14=0 if ncontrolf14==1 & treated==. & ntreatedf14<1


bys petu20: egen ntreatedf1=total(treated1) if petu20!=""
bys petu20: egen ntreatedf2=total(treated2) if petu20!=""
bys petu20: egen ntreatedf3=total(treated3) if petu20!=""



gen treatedf1=1 if ntreatedf1==1 & treated==. & ncontrolf<1
replace treatedf1=0 if ncontrolf==1 & treated==. & ntreatedf<1

gen treatedf2=1 if ntreatedf2==1 & treated==. & ncontrolf<1
replace treatedf2=0 if ncontrolf==1 & treated==. & ntreatedf<1

gen treatedf3=1 if ntreatedf3==1 & treated==. & ncontrolf<1
replace treatedf3=0 if ncontrolf==1 & treated==. & ntreatedf<1




*Generate predicted voting (logit)
logit voted22 molincome female firstvote foreign i.moses1d i.mohighschool i.kunta19 if  treated==0
predict pvote_mother

*Generate predicted voting (enet logit)
elasticnet logit voted22 molincome female firstvote foreign i.moses1d i.mohighschool i.kunta19 if  treated==0
predict pvote_enet_mother



*Generate predicted voting for spillover sample (logit)
logit voted22 molincome age female firstvote foreign i.moses1d i.mohighschool i.kunta19 if treatedf==0
predict pvoteold

*Generate predicted voting for spillover sample (enet logit)
elasticnet logit voted22 molincome age female firstvote foreign i.moses1d i.mohighschool i.kunta19 if treatedf==0
predict pvoteold_enet










gen tmun=""
replace tmun=	"Alajärvi"	if kunta19==	5
replace tmun=	"Alavieska"	if kunta19==	9
replace tmun=	"Alavus"	if kunta19==	10
replace tmun=	"Aura"	if kunta19==	19
replace tmun=	"Eurajoki"	if kunta19==	51
replace tmun=	"Forssa"	if kunta19==	61
replace tmun=	"Haapajärvi"	if kunta19==	69
replace tmun=	"Haapavesi"	if kunta19==	71
replace tmun=	"Hailuoto"	if kunta19==	72
replace tmun=	"Halsua"	if kunta19==	74
replace tmun=	"Hankasalmi"	if kunta19==	77
replace tmun=	"Harjavalta"	if kunta19==	79
replace tmun=	"Hausjärvi"	if kunta19==	86
replace tmun=	"Hämeenkyrö"	if kunta19==	108
replace tmun=	"Ilomantsi"	if kunta19==	146
replace tmun=	"Isojoki"	if kunta19==	151
replace tmun=	"Janakkala"	if kunta19==	165
replace tmun=	"Joensuu"	if kunta19==	167
replace tmun=	"Jokioinen"	if kunta19==	169
replace tmun=	"Juupajoki"	if kunta19==	177
replace tmun=	"Jyväskylä"	if kunta19==	179
replace tmun=	"Jämsä"	if kunta19==	182
replace tmun=	"Kaarina"	if kunta19==	202
replace tmun=	"Kannonkoski"	if kunta19==	216
replace tmun=	"Kannus"	if kunta19==	217
replace tmun=	"Karkkila"	if kunta19==	224
replace tmun=	"Karstula"	if kunta19==	226
replace tmun=	"Karvia"	if kunta19==	230
replace tmun=	"Kaskinen"	if kunta19==	231
replace tmun=	"Kaustinen"	if kunta19==	236
replace tmun=	"Keitele"	if kunta19==	239
replace tmun=	"Kemi"	if kunta19==	240
replace tmun=	"Kemiönsaari"	if kunta19==	322
replace tmun=	"Kempele"	if kunta19==	244
replace tmun=	"Kerava"	if kunta19==	245
replace tmun=	"Kirkkonummi"	if kunta19==	257
replace tmun=	"Kivijärvi"	if kunta19==	265
replace tmun=	"Konnevesi"	if kunta19==	275
replace tmun=	"Kontiolahti"	if kunta19==	276
replace tmun=	"Kristiinankaupunki"	if kunta19==	287
replace tmun=	"Kuortane"	if kunta19==	300
replace tmun=	"Kustavi"	if kunta19==	304
replace tmun=	"Kuusamo"	if kunta19==	305
replace tmun=	"Lapinlahti"	if kunta19==	402
replace tmun=	"Lappajärvi"	if kunta19==	403
replace tmun=	"Laukaa"	if kunta19==	410
replace tmun=	"Lieksa"	if kunta19==	422
replace tmun=	"Liminka"	if kunta19==	425
replace tmun=	"Liperi"	if kunta19==	426
replace tmun=	"Lohja"	if kunta19==	444
replace tmun=	"Lumijoki"	if kunta19==	436
replace tmun=	"Luumäki"	if kunta19==	441
replace tmun=	"Maalahti"	if kunta19==	475
replace tmun=	"Masku"	if kunta19==	481
replace tmun=	"Muhos"	if kunta19==	494
replace tmun=	"Muurame"	if kunta19==	500
replace tmun=	"Mynämäki"	if kunta19==	503
replace tmun=	"Mäntyharju"	if kunta19==	507
replace tmun=	"Nakkila"	if kunta19==	531
replace tmun=	"Nivala"	if kunta19==	535
replace tmun=	"Nurmijärvi"	if kunta19==	543
replace tmun=	"Oulu"	if kunta19==	564
replace tmun=	"Outokumpu"	if kunta19==	309
replace tmun=	"Paimio"	if kunta19==	577
replace tmun=	"Paltamo"	if kunta19==	578
replace tmun=	"Parainen"	if kunta19==	445
replace tmun=	"Parkano"	if kunta19==	581
replace tmun=	"Pelkosenniemi"	if kunta19==	583
replace tmun=	"Perho"	if kunta19==	584
replace tmun=	"Pertunmaa"	if kunta19==	588
replace tmun=	"Petäjävesi"	if kunta19==	592
replace tmun=	"Pieksämäki"	if kunta19==	593
replace tmun=	"Polvijärvi"	if kunta19==	607
replace tmun=	"Pomarkku"	if kunta19==	608
replace tmun=	"Pori"	if kunta19==	609
replace tmun=	"Porvoo"	if kunta19==	638
replace tmun=	"Posio"	if kunta19==	614
replace tmun=	"Puolanka"	if kunta19==	620
replace tmun=	"Puumala"	if kunta19==	623
replace tmun=	"Pyhtää"	if kunta19==	624
replace tmun=	"Pyhäjärvi"	if kunta19==	626
replace tmun=	"Pyhäranta"	if kunta19==	631
replace tmun=	"Pälkäne"	if kunta19==	635
replace tmun=	"Raisio"	if kunta19==	680
replace tmun=	"Ranua"	if kunta19==	683
replace tmun=	"Rautavaara"	if kunta19==	687
replace tmun=	"Reisjärvi"	if kunta19==	691
replace tmun=	"Ristijärvi"	if kunta19==	697
replace tmun=	"Rovaniemi"	if kunta19==	698
replace tmun=	"Saarijärvi"	if kunta19==	729
replace tmun=	"Salo"	if kunta19==	734
replace tmun=	"Sievi"	if kunta19==	746
replace tmun=	"Siikainen"	if kunta19==	747
replace tmun=	"Sipoo"	if kunta19==	753
replace tmun=	"Soini"	if kunta19==	759
replace tmun=	"Somero"	if kunta19==	761
replace tmun=	"Sonkajärvi"	if kunta19==	762
replace tmun=	"Sotkamo"	if kunta19==	765
replace tmun=	"Sulkava"	if kunta19==	768
replace tmun=	"Sysmä"	if kunta19==	781
replace tmun=	"Tampere"	if kunta19==	837
replace tmun=	"Tervola"	if kunta19==	845
replace tmun=	"Toholampi"	if kunta19==	849
replace tmun=	"Toivakka"	if kunta19==	850
replace tmun=	"Utajärvi"	if kunta19==	889
replace tmun=	"Uusikaupunki"	if kunta19==	895
replace tmun=	"Vaala"	if kunta19==	785
replace tmun=	"Vaasa"	if kunta19==	905
replace tmun=	"Valkeakoski"	if kunta19==	908
replace tmun=	"Vantaa"	if kunta19==	92
replace tmun=	"Vieremä"	if kunta19==	925
replace tmun=	"Vihti"	if kunta19==	927
replace tmun=	"Viitasaari"	if kunta19==	931
replace tmun=	"Virolahti"	if kunta19==	935
replace tmun=	"Vöyri"	if kunta19==	946
replace tmun=	"Ylivieska"	if kunta19==	977
replace tmun=	"Ypäjä"	if kunta19==	981
replace tmun=	"Ähtäri"	if kunta19==	989

gen treatedmun=tmun!=""

gen shrereg=.

replace shrereg =	100	if kunta19==	5
replace shrereg =	100	if kunta19==	9
replace shrereg =	100	if kunta19==	10
replace shrereg =	100	if kunta19==	19
replace shrereg =	100	if kunta19==	51
replace shrereg =	80.8	if kunta19==	61
replace shrereg =	100	if kunta19==	69
replace shrereg =	100	if kunta19==	71
replace shrereg =	100	if kunta19==	72
replace shrereg =	100	if kunta19==	74
replace shrereg =	100	if kunta19==	77
replace shrereg =	100	if kunta19==	79
replace shrereg =	100	if kunta19==	86
replace shrereg =	100	if kunta19==	108
replace shrereg =	100	if kunta19==	146
replace shrereg =	100	if kunta19==	151
replace shrereg =	100	if kunta19==	165
replace shrereg =	97.7	if kunta19==	167
replace shrereg =	100	if kunta19==	169
replace shrereg =	100	if kunta19==	177
replace shrereg =	99.2	if kunta19==	179
replace shrereg =	100	if kunta19==	182
replace shrereg =	100	if kunta19==	202
replace shrereg =	100	if kunta19==	216
replace shrereg =	100	if kunta19==	217
replace shrereg =	100	if kunta19==	224
replace shrereg =	100	if kunta19==	226
replace shrereg =	100	if kunta19==	230
replace shrereg =	100	if kunta19==	231
replace shrereg =	100	if kunta19==	236
replace shrereg =	100	if kunta19==	239
replace shrereg =	100	if kunta19==	240
replace shrereg =	100	if kunta19==	322
replace shrereg =	100	if kunta19==	244
replace shrereg =	100	if kunta19==	245
replace shrereg =	100	if kunta19==	257
replace shrereg =	100	if kunta19==	265
replace shrereg =	100	if kunta19==	275
replace shrereg =	83.4	if kunta19==	276
replace shrereg =	80.5	if kunta19==	287
replace shrereg =	100	if kunta19==	300
replace shrereg =	100	if kunta19==	304
replace shrereg =	100	if kunta19==	305
replace shrereg =	100	if kunta19==	402
replace shrereg =	100	if kunta19==	403
replace shrereg =	100	if kunta19==	410
replace shrereg =	100	if kunta19==	422
replace shrereg =	100	if kunta19==	425
replace shrereg =	100	if kunta19==	426
replace shrereg =	100	if kunta19==	444
replace shrereg =	100	if kunta19==	436
replace shrereg =	100	if kunta19==	441
replace shrereg =	83.8	if kunta19==	475
replace shrereg =	100	if kunta19==	481
replace shrereg =	80.7	if kunta19==	494
replace shrereg =	100	if kunta19==	500
replace shrereg =	100	if kunta19==	503
replace shrereg =	100	if kunta19==	507
replace shrereg =	100	if kunta19==	531
replace shrereg =	100	if kunta19==	535
replace shrereg =	100	if kunta19==	543
replace shrereg =	100	if kunta19==	564
replace shrereg =	100	if kunta19==	309
replace shrereg =	100	if kunta19==	577
replace shrereg =	83.4	if kunta19==	578
replace shrereg =	100	if kunta19==	445
replace shrereg =	100	if kunta19==	581
replace shrereg =	100	if kunta19==	583
replace shrereg =	100	if kunta19==	584
replace shrereg =	100	if kunta19==	588
replace shrereg =	100	if kunta19==	592
replace shrereg =	100	if kunta19==	593
replace shrereg =	84.3	if kunta19==	607
replace shrereg =	100	if kunta19==	608
replace shrereg =	90.7	if kunta19==	609
replace shrereg =	97.6	if kunta19==	638
replace shrereg =	100	if kunta19==	614
replace shrereg =	100	if kunta19==	620
replace shrereg =	100	if kunta19==	623
replace shrereg =	100	if kunta19==	624
replace shrereg =	100	if kunta19==	626
replace shrereg =	100	if kunta19==	631
replace shrereg =	100	if kunta19==	635
replace shrereg =	100	if kunta19==	680
replace shrereg =	100	if kunta19==	683
replace shrereg =	100	if kunta19==	687
replace shrereg =	100	if kunta19==	691
replace shrereg =	100	if kunta19==	697
replace shrereg =	100	if kunta19==	698
replace shrereg =	100	if kunta19==	729
replace shrereg =	90.1	if kunta19==	734
replace shrereg =	100	if kunta19==	746
replace shrereg =	100	if kunta19==	747
replace shrereg =	100	if kunta19==	753
replace shrereg =	100	if kunta19==	759
replace shrereg =	100	if kunta19==	761
replace shrereg =	81.3	if kunta19==	762
replace shrereg =	100	if kunta19==	765
replace shrereg =	88.2	if kunta19==	768
replace shrereg =	100	if kunta19==	781
replace shrereg =	100	if kunta19==	837
replace shrereg =	100	if kunta19==	845
replace shrereg =	84.9	if kunta19==	849
replace shrereg =	100	if kunta19==	850
replace shrereg =	100	if kunta19==	889
replace shrereg =	95.9	if kunta19==	895
replace shrereg =	100	if kunta19==	785
replace shrereg =	100	if kunta19==	905
replace shrereg =	87.7	if kunta19==	908
replace shrereg =	100	if kunta19==	92
replace shrereg =	100	if kunta19==	925
replace shrereg =	100	if kunta19==	927
replace shrereg =	85.7	if kunta19==	931
replace shrereg =	85.3	if kunta19==	935
replace shrereg =	100	if kunta19==	946
replace shrereg =	100	if kunta19==	977
replace shrereg =	100	if kunta19==	981
replace shrereg =	100	if kunta19==	989



save "$home\data\dataforanalysis.dta", replace
